home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0039 / source / dcdabout.mod < prev    next >
Text File  |  1997-04-16  |  4KB  |  113 lines
  1. IMPLEMENTATION MODULE DCDAbout;
  2.  
  3.  
  4. (*--------------------------------------------------------------------*)
  5. (*                                                                    *)
  6. (*   This library module is reponsible for processing the Dialogues   *)
  7. (*   for DegasConvert. This module will show the dialogue, return     *)
  8. (*   the input but will NOT clean up the screen. The calling program  *)
  9. (*   is reponsible for that.                                          *)
  10. (*                                                                    *)
  11. (*     I am having doubts about putting all the dialogues in one      *)
  12. (*   module. It seemed like a good idea when I started, however, this *)
  13. (*   module will have 5 dialogues in it. It will need to import an    *)
  14. (*   awful lot of types, which are only together by coincidence.      *)
  15. (*   I do not want to make many more library modules either. The      *)
  16. (*   module dependencies and general housekeeping are getting quite   *)
  17. (*   involved as it is.                                               *)
  18. (*                                                                    *)
  19. (*   They are getting split up, one module per dialog.                *)
  20. (*                                                                    *)
  21. (*                                                                    *)
  22. (*   This is version 2.00         July   1988     L.G.Miller          *)
  23. (*                                :- remove print palette dialog      *)
  24. (*                                                                    *)
  25. (*                   1.10         August 1987     L.G.Miller          *)
  26. (*                                                                    *)
  27. (*--------------------------------------------------------------------*)
  28.  
  29.  
  30. (*  IMPORT Trace; *)
  31. FROM DCGlobal     IMPORT (* CONST *)
  32.                         LowRes,
  33.                         MedRes,
  34.                         HiRes,
  35.  
  36.                         PaletteEntry,
  37.                         PrintPalette,
  38.  
  39.             BITSPERWORD;
  40.  
  41. FROM SYSTEM             IMPORT  ADDRESS, ADR;
  42.  
  43. FROM Strings            IMPORT String, Assign, Concat, Length;
  44.  
  45.  
  46. FROM Resource           IMPORT rsrc_gaddr;
  47.  
  48. IMPORT Object;
  49.  
  50. IMPORT GemObject;
  51.  
  52. IMPORT Forms;
  53. FROM   Forms            IMPORT DialAction;
  54.  
  55. FROM ManyWindows IMPORT
  56.  
  57. (* VAR  *) 
  58.   AESApplId,           (* AES handle for this application *)
  59.   VDIHandle,           (* VDI handle of current Virtual Workstation *)
  60.  
  61.   ShowMouse,
  62.   HideMouse;
  63.  
  64.  
  65.  
  66. (* Resource file constants *)
  67. FROM Dcrsc      IMPORT  aboutbox, aboutbye, aboutver;
  68.  
  69. (* -------------------- End of IMPORTS ----------------------- *)
  70.  
  71.  
  72. (*----------------------------------------------------------------------*)
  73. (*                  G L O B A L   T Y P E S                             *)
  74. (*----------------------------------------------------------------------*)
  75.  
  76. TYPE
  77.  
  78.   StringPtr = POINTER TO String; (* null terminated *)
  79.  
  80.  
  81. (*----------------------------------------------------------------------*)
  82. (*     G L O B A L     V A R I A B L E S                                *)
  83. (*----------------------------------------------------------------------*)
  84.  
  85.  
  86. PROCEDURE DoAboutDialog ( versionstr : ARRAY OF CHAR );
  87.  
  88. VAR
  89.   dTree      : ADDRESS ;
  90.   x, y, w, h, dumc : CARDINAL ;
  91.   result     : INTEGER ;
  92.   obptr      : Object.PObject;
  93.   vstr       : StringPtr;
  94.  
  95. BEGIN
  96.   dTree := GemObjects.TreePointer( aboutbox );
  97.   obptr := GemObjects.ObjectPointer(aboutbox, aboutver);
  98.   vstr := GemObjects.GetObjectSpec( aboutbox, aboutver );
  99.   Assign( versionstr,  vstr^ );
  100.   Forms.form_center(dTree, x, y, w, h) ;
  101.   dumc := Forms.form_dial(ReserveSpace, 0, 0, 0, 0, x, y, w, h) ;
  102.   dumc := Forms.form_dial(ExpandBox, 0, 0, 0, 0, x, y, w, h) ;
  103.   dumc := Object.objc_draw(dTree, 0, 10, x, y, w, h) ;
  104.   result := Forms.form_do(dTree, 0) ;
  105.   GemObjects.DeselectObject(aboutbox, aboutbye) ;
  106.   dumc := Forms.form_dial(ShrinkBox, 0, 0, 0, 0, x, y, w, h) ;
  107.   dumc := Forms.form_dial(FreeSpace, 0, 0, 0, 0, x, y, w, h) ;
  108. END DoAboutDialog ;
  109.  
  110.  
  111. END DCDAbout.
  112.  
  113.